LogOnServer/LogOffServer do not require JobNumbers and therefore can be called before a PrintJob is opened.
PELogOnServer PELogOffServer
uses CRDelphi; procedure LogOnServer; var LogInfo : PELogOnInfo; pDllName : array[0..255] of Char; sServerName, sDatabaseName, sUserId, sPassword sDllName : string; begin LogInfo.StructSize := SizeOf(PELogOnInfo); sServerName := 'oracleserver'; sDatabaseName := ''; {not usually req'd for Oracle} sUserId := 'SCOTT'; sPassword := 'tiger'; sDllName := 'PDSODBC.DLL'; {Populate the PELogOnInfo structure} StrPCopy(@LogInfo.ServerName, sServerName); StrPCopy(@LogInfo.DatabaseName, sDatabaseName); StrPCopy(@LogInfo.UserID, sUserId); StrPCopy(@LogInfo.Password, sPassword); StrPCopy(pDllName, UpperCase(sDllName)); if not PELogOnServer(pDllName, LogInfo) then {Do Error Handler}; end; procedure LogOffServer; var LogInfo : PELogOnInfo; pDllName : array[0..255] of Char; begin LogInfo.StructSize := SizeOf(PELogOnInfo);
sServerName := 'oracleserver'; sDatabaseName := ''; {not usually req'd for Oracle} sUserId := 'SCOTT'; sPassword := 'tiger'; sDllName := 'PDSODBC.DLL'; {Populate the PELogOnInfo structure} StrPCopy(@LogInfo.ServerName, sServerName); StrPCopy(@LogInfo.DatabaseName, sDatabaseName); StrPCopy(@LogInfo.UserID, sUserID); StrPCopy(@LogInfo.Password, sPassword); StrPCopy(pDllName, sDllName); if not PELogOffServer(pDllName, LogInfo) then {Do Error Handler}; end;
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |